ExcelVBA操作文件四大方法.docx |
您所在的位置:网站首页 › excel vba filecopy › ExcelVBA操作文件四大方法.docx |
ExcelVBA操作文件四大方法.docx 《ExcelVBA操作文件四大方法.docx》由会员分享,可在线阅读,更多相关《ExcelVBA操作文件四大方法.docx(23页珍藏版)》请在冰豆网上搜索。 ExcelVBA操作文件四大方法 在我们日常使用Excel的时候,不仅会用到当前Excel文件的数据,还经常需要访问其他的数据文件。 这些数据文件可能是Excel文件、文本文件或数据库文件等。 经常有朋友会问如何在vba代码里操作这些数据文件? 本文就系统地介绍一下在Excel中应用VBA操作数据文件的方法。 本文主要介绍四种常用的方法: 1、利用Excel对象来处理文件; 2、利用VBA文件处理语句来处理文件; 3、利用FileSystemObject对象来处理文件; 4、利用API函数来处理文件。 当然对于数据库文件,还可以利用ADO+SQL的方法操作,不过论坛已经有前辈详细介绍过此类方法,本文就不再重复了。 一、利用Excel对象来处理文件 利用Excel对象自带的方法来操作文件是最方便,也是最简单的。 我们主要利用Workbooks集合和Workbook对象的方法来操作文件。 1、打开Excel文件 我们可以用Workbooks.Open方法打开一个Excel工作簿。 Workbooks.Open(FileName,UpdateLinks,ReadOnly,Format,Password,WriteResPassword,IgnoreReadOnlyRecommended,Origin,Delimiter,Editable,Notify,Converter,AddToMru,Local,CorruptLoad) 其中FileName是必选的参数,表示要打开的工作簿名,如果没有指定路径,则代表当前路径。 另外14个是可选参数,除了密码参数,其他的一般很少用。 具体的含义可以参看VBA的帮助。 例: Workbooks.Open"F: \test.xls" 可以打开F盘的test.xls文件。 2、打开文本文件 使用Open方法也可以打开文本文件,但建议使用OpenText方法。 此方法是载入一个文本文件,并将其作为包含单个工作表的工作簿进行分列处理,然后在此工作表中放入经过分列处理的文本文件数据。 完整语法如下: Workbooks.OpenText(FileName,Origin,StartRow,DataType,TextQualifier,ConsecutiveDelimiter,Tab,Semicolon,Comma,Space,Other,OtherChar,FieldInfo,TextVisualLayout,DecimalSeparator,ThousandsSeparator,TrailingMinusNumbers,Local) 关于以上参数的具体含义可以参看VBA的帮助,这里就不重复了。 在实际的编程中,一般无需对这些复杂的参数进行处理。 可以通过录制宏来得到打开一个文本文件的VBA代码。 具体方法就是选择“文件——打开”,然后选择打开文本文件,就会出现文本导入向导,一步一步执行完,直到文本打开后,停止录制。 以下是录制宏得到的代码: SubMacro1() ' 'Macro1Macro '宏由MCSYSTEM录制,时间: 2007-3-29 ' ' Workbooks.OpenTextFilename: ="F: \CallWindowProc.txt",Origin: =xlWindows,_ StartRow: =1,DataType: =xlDelimited,TextQualifier: =xlDoubleQuote,_ ConsecutiveDelimiter: =False,Tab: =True,Semicolon: =False,Comma: =False_ ,Space: =False,Other: =False,FieldInfo: =Array(1,1),_ TrailingMinusNumbers: =True EndSub 在实际编程中只要做相应的修改就可以使用了。 3、打开其他文件 利用Excel对象还可以打开XML文件和一些数据库(如Access)文件,对应XML文件,需要Excel2003以上的版本。 OpenXML方法的语法如下: Workbooks.OpenXML(Filename,Stylesheets,LoadOption) FileName String类型,必需。 要打开的文件名。 Stylesheets Variant类型,可选。 单个值或值的数组,用于指定要应用哪些XSL转换(XSLT)样式表处理指令。 LoadOption Variant类型,转换。 指定Excel打开XML数据文件的方式。 可为XlXmlLoadOption常量之一。 XlXmlLoadOption可为以下XlXmlLoadOption常量之一: xlXmlLoadImportToList将XML数据文件的内容置于XML列表中。 xlXmlLoadMapXml在“XML结构”任务窗格中显示XML数据文件的架构。 xlXmlLoadOpenXml打开XML数据文件。 文件的内容将展开。 xlXmlLoadPromptUser提示用户选择打开文件的方式。 示例 下面的代码打开了XML数据文件“customers.xml”并在XML列表中显示了此文件的内容。 SubUseOpenXML() Application.Workbooks.OpenXML_ Filename: ="customers.xml",_ LoadOption: =xlXmlLoadImportToList EndSub OpenDatabase方法语法如下: Workbooks.OpenDatabase(FileName,CommandText,CommandType,BackgroundQuery,ImportDataAs) FileName String类型,必需。 连接字符串。 CommandText Variant类型,可选。 查询的命令文本。 CommandType Variant类型,可选。 查询的命令类型。 以下是可用的命令类型: Default、SQL和Table。 BackgroundQuery Variant类型,可选。 查询的背景。 ImportDataAs Variant类型,可选。 确定查询的格式。 示例 本示例中,Excel打开了“northwind.mdb”文件。 SubOpenDatabase() Workbooks.OpenDatabaseFileName: ="C: \northwind.mdb" EndSub 4、保存文件 文件的保存使用Workbook对象的Save或SaveAs方法。 Save方法使用简单,语法为 expression.Save,expression是某个Workbook对象。 如: ActiveWorkbook.Save 即保存当前活动工作簿。 如果是第一次保存工作簿或要另存为,请使用SaveAs方法为该文件指定文件名。 其语法为: expression.SaveAs(FileName,FileFormat,Password,WriteResPassword,ReadOnlyRecommended,CreateBackup,AccessMode,ConflictResolution,AddToMru,TextCodepage,TextVisualLayout,Local) 具体参数含义可参看VBA帮助,使用都比较简单。 示例 本示例新建一个工作簿,提示用户输入文件名,然后保存该工作簿。 SetNewBook=Workbooks.Add Do fName=Application.GetSaveAsFilename LoopUntilfNameFalse NewBook.SaveAsFilename: =fName Application.GetSaveAsFilename为调出标准的“另存为”对话框,获取用户文件名,但并不真正保存任何文件,然后使用代码保存文件。 还有Application.GetOpenFileName可以调出标准的“打开”对话框。 5、关闭文件 关闭文件可以使用Workbooks集合或Workbook对象的Close方法。 前者是关闭所有打开的工作簿,后者关闭特定的工作簿。 Workbook对象的Close方法语法为: expression.Close(SaveChanges,Filename,RouteWorkbook) SaveChanges参数表示是否保存更改,对许多不需要更改的操作,可设置为False以免弹出保存更改提示的对话框。 FileName可选。 以此文件名保存所做的更改。 RouteWorkbook 可选。 如果指定工作簿不需要传送给下一个收件人(没有传送名单或已经传送),则忽略该参数。 示例 本示例关闭Book1.xls,并放弃所有对此工作簿的更改。 Workbooks("BOOK1.XLS").CloseSaveChanges: =False
本示例关闭所有打开的工作簿。 如果某个打开的工作簿有改变,MicrosoftExcel将显示询问是否保存更改的对话框和相应提示。 Workbooks.Close 6、综合实例 假如F盘有一个Excel文件test.xls,现在有另一个Excel文件要访问test.xls的数据,我们来看用VBA代码如何操作。 代码如下: PublicSubtest() Application.ScreenUpdating=False Workbooks.Open"f: \test.xls" ThisWorkbook.Sheets (1).Range("b1")=ActiveWorkbook.Sheets (1).Range("a2") ActiveWorkbook.Close Application.ScreenUpdating=True EndSub 首先关闭屏幕刷新,是为了防止test.xls在打开时被看见(有时候还是看的见)。 打开后,见test.xls的Sheet1的单元格A2中的值赋给当前工作簿的Sheet1的单元格B2,然后关闭test.xls。 当要打开的工作簿不确定的时候,可以通过调用打开对话框来让用户自己选择。 可改为如下: PublicSubtest() Application.ScreenUpdating=False DimFilenameasString Filename=Application.GetOpenFileName Workbooks.OpenFilename ThisWorkbook.Sheets (1).Range("b1")=ActiveWorkbook.Sheets (1).Range("a2") ActiveWorkbook.Close Application.ScreenUpdating=True EndSub 7、总结 利用Excel对象的方法进行文件操作是最简单,也是最方便的,适合初学者。 对于Excel文件格式,如果我们仅仅是读取其表格中的内容,这种方法也是首选。 对于文本文件的操作,使用第二种方法比较方便,若要将文本转换成表格,那么使用此方法也是合适的。
二、利用VBA文件处理语句来处理文件 VBA包含了许多用于文件操作的语句和函数,可以满足绝大多数情况下的文件操作要求。 下面我们按照操作目的进行一一介绍。 (一)文件处理
1.Name语句 语法: NameoldpathnameAsnewpathname 功能: 重命名一个文件、目录、或文件夹,移动一个文件。 说明: 在一个已打开的文件上使用Name,将会产生错误。 进行文件操作时,一定要注意错误处理。 示例: OnErrorResumeNext '错误处理 Name"f: \TEST.xls"As"f: \TEST123.xls" '重命名 Name"f: \TEST.xls"As"f: \dll\TEST.xls" '移动文件 Name"f: \TEST.xls"As"d: \TEST123.xls" '跨驱动器移动并重命名文件 注意: Name不能移动一个目录或文件夹。 2、FileCopy语句 语法: FileCopysource,destination 功能: 复制一个文件。 说明: 如果对一个已打开的文件使用FileCopy语句,则会产生错误。 示例: FileCopy"f: \TEST.xls","e: \TEST.xls" '从F盘复制TEST.xls到E盘 3、Kill语句 语法: Killpathname 功能: 从磁盘中删除文件。 说明: Kill支持多字符(*)和单字符(? )的统配符来指定多重文件。 如果使用Kill来删除一个已打开的文件,则会产生错误。 示例: Kill"f: \TEST.xls" ’删除F盘的TEST.xls文件 Kill"f: \*.xls" '删除F盘所有xls文件 4、GetAttr函数 语法: GetAttr(pathname) 功能: 获取一个文件、目录、或文件夹的属性。 返回一个Integer值。 返回值 由GetAttr返回的值,是下面这些属性值的总和: 常数 值 描述 vbNormal 0 常规 vbReadOnly 1 只读 vbHidden 2 隐藏 vbSystem 4 系统文件 vbDirectory 16 目录或文件夹 vbArchive 32 存档文件 vbalias 64 指定的文件名是别名。 只在Macintosh中可用。 说明: 若要判断是否设置了某个属性,在GetAttr函数与想要得知的属性值之间使用And运算符与逐位比较。 如果所得的结果不为零,则表示设置了这个属性值。 示例: Debug.PrintGetAttr("F: \test.txt") '若为存档文件,在立即窗口可看到值为32 Debug.PrintGetAttr("F: \test.txt") '将属性—高级—可存档文件的勾去掉后,值为0 为判断一个文件是否只读,可用下法: Debug.PrintGetAttr("F: \test.txt")AndvbReadOnly 若值非零,说明时只读的。 5、SetAttr语句 语法: SetAttrpathname,attributes 功能: 为一个文件设置属性。 说明: 如果想要给一个已打开的文件设置属性,则会产生运行时错误。 示例: SetAttr"F: \test.txt",vbHidden '设置隐藏属性。 SetAttr"F: \test.txt",vbHidden+vbReadOnly '设置隐藏并只读。 6、FileLen函数 语法: FileLen(pathname) 功能: 获取一个文件的长度,单位是字节。 说明: 当调用FileLen函数时,不需要打开文件,如果所指定的文件已经打开,则返回的值是这个文件在打开前的大小。 7、FileDateTime函数 语法: FileDateTime(pathname) 功能: 获取一个文件被创建或最后修改后的日期和时间。 示例: Debug.PrintFileDateTime("F: \TEST.xls") '在立即窗口可看到2007-3-2919: 28: 27 (二)目录处理 1、CurDir函数 语法: CurDir[(drive)] 功能: 返回当前的路径。 说明: drive参数是可选的,它指定一个存在的驱动器。 如果没有指定驱动器,或drive是零长度字符串(""),则CurDir会返回当前驱动器的路径。 示例: Debug.PrintCurDir '返回“C: \DocumentsandSettings\yc\MyDocuments”。 Debug.PrintCurDir("C") '返回“C: \DocumentsandSettings\yc\MyDocuments”。 Debug.PrintCurDir("D") '返回“D: \”。 2、ChDir语句 语法: ChDirpath 功能: 改变当前的目录或文件夹。 说明: ChDir语句改变缺省目录位置,但不会改变缺省驱动器位置。 缺省驱动器一般是C。 示例: ChDir"D: \temp" Debug.PrintCurDir '返回“C: \DocumentsandSettings\yc\MyDocuments”。 Debug.PrintCurDir("D") '返回“D: \temp”。 与上例比较,此时D盘的当前目录已经变为“D: \temp”,但是缺省驱动器还是C。 3、ChDrive语句 语法: ChDrivedrive 功能: 改变当前的驱动器。 说明: 如果使用零长度的字符串(""),则当前的驱动器将不会改变。 如果drive参数中有多个字符,则ChDrive只会使用首字母。 示例: ChDrive"D" ChDir"D: \temp" Debug.PrintCurDir '返回“D: \temp”。 Debug.PrintCurDir("D") '返回“D: \temp”。 与上例比较,用CurDir返回的是“D: \temp”,当前驱动器已经变为D了。 4、Dir函数 语法: Dir[(pathname[,attributes])] 两个参数都是可选的,attributes表示文件属性。 功能: 返回一个文件名、目录名或文件夹名称,它必须与指定的模式或文件属性、或磁盘卷标相匹配。 说明: 在第一次调用Dir函数时,必须指定pathname,否则会产生错误。 如果也指定了文件属性,那么就必须包括pathname。 Dir会返回匹配pathname的第一个文件名。 若想得到其它匹配pathname的文件名,再一次调用Dir,且不要使用参数。 如果已没有合乎条件的文件,则Dir会返回一个零长度字符串("")。 一旦返回值为零长度字符串,并要再次调用Dir时,就必须指定pathname,否则会产生错误。 不必访问到所有匹配当前pathname的文件名,就可以改变到一个新的pathname上。 但是,不能以递归方式来调用Dir函数。 以vbDirectory属性来调用Dir不能连续地返回子目录。 示例: Debug.PrintDir("F: \TEST.xls") ’返回"TEST.xls" Debug.PrintDir("F: \*.xls") ’返回按条件第一个找到的文件名。 Debug.PrintDir("F: \*.txt",vbReadOnly) ’返回第一个只读的txt文件 以下过程可显示C盘根目录下的所有目录. SubDirC() MyPath="c: \" MyName=dir(MyPath,vbDirectory) '找寻第一项。 DoWhileMyName"" '开始循环。 '跳过当前的目录及上层目录。 IfMyName"."AndMyName".."Then '使用位比较来确定MyName代表一目录。 If(GetAttr(MyPath&MyName)AndvbDirectory)=vbDirectoryThen Debug.PrintMyName '如果它是一个目录,将其名称显示出来。 EndIf EndIf MyName=dir '查找下一个目录。 Loop EndSub 以下过程利用递归可以查找目录和子目录下的所有文件。 PublicSubFindFile(mPathAsString,OptionalsFileAsString="") OnErrorResumeNext DimsAsString,sDir()AsString DimiAsLong,dAsLong IfRight(mPath,1)"\"Then mPath=mPath&"\" EndIf '查找目录下的文件 s=dir(mPath&sFile,vbArchive+vbDirectory+vbHidden+vbNormal+vbReadOnly+vbSystem) DoWhiles"" Debug.PrintmPath&s s=dir Loop '查找目录下的子目录 s=dir(mPath,vbArchive+vbDirectory+vbHidden+vbNormal+vbReadOnly+vbSystem) DoWhiles"" Ifs"."Ands".."Then If(GetAttr(mPath&s)AndvbDirectory)=vbDirectoryThen d=d+1 ReDimPreservesDir(d) sDir(d)=mPath&s EndIf EndIf s=dir Loop '开始递归 Fori=1Tod FindFilesDir(d)&"\" Next EndSub 5、MkDir语句 语法: MkDirpath 功能: 创建一个新的目录或文件夹。 说明: path可以包含驱动器。 如果没有指定驱动器,则MkDir会在当前驱动器上创建新的目录或文件夹。 示例: MkDir"MYDIR" '在当前目录建立新的目录或文件夹。 6、RmDir语句 语法: RmDirpath 功能: 删除一个存在的目录或文件夹。 说明: 如果想要使用RmDir来删除一个含有文件的目录或文件夹,则会发生错误。 在试图删除目录或文件夹之前,先使用Kill语句来删除所有文件。 示例: RmDir"MYDIR" '将MYDIR删除。 三、利用FileSystemObject对象来处理文件 FileSystemObject对象模型,是微软提供的专门用来访问计算机文件系统的,具有大量的属性、方法和事件。 其使用面向对象的“ |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |